home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Generate / g-duplicate3 < prev    next >
Encoding:
Text File  |  1998-08-11  |  474 b   |  15 lines  |  [TEXT/ScoM]
  1. g-duplicate3 seed count low high list
  2.  
  3. Use this function to generate any number-of-repeats of given range of a symbol-pattern.
  4.  
  5. (g-duplicate3 .545 '(2 2 1 2 1) 1 2
  6.               '((abef a b) (c d) (abcfg) (d e) (abdef)))
  7.  
  8. => ((abef a b b abef a) (c d d c) (abcfg) (d d e d) (abdef))
  9.  
  10.  
  11. (g-duplicate3 .545 '(2 2 3 2 3) 1 2
  12.               '((abef a b) (c d) (acfg) (d e) (abd adef)))
  13.  
  14. => ((abef a b b abef a) (c d d c) (acfg acfg acfg)
  15.     (d d e d) (abd abd adef abd adef abd))